home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / untcnvrs.sit / Unit Conversion / card_8451.txt < prev    next >
Text File  |  1990-11-02  |  8KB  |  351 lines
  1. -- card: 8451 from stack: in
  2. -- bmap block id: 8741
  3. -- flags: 0000
  4. -- background id: 3044
  5. -- name: Volume
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   put empty into background field "toconvert"
  9.   put empty into background field "answer"
  10. end closeCard
  11.  
  12.  
  13.  
  14. -- part 14 (button)
  15. -- low flags: 00
  16. -- high flags: 2000
  17. -- rect: left=75 top=288 right=304 bottom=134
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Distance
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual effect zoom open
  29.   go to card Distance
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 15 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=75 top=306 right=323 bottom=134
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Temperature
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual effect zoom open
  49.   go to card weight
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 16 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=135 top=288 right=304 bottom=194
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Area
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   visual effect zoom open
  69.   go to card Area
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 17 (button)
  75. -- low flags: 00
  76. -- high flags: 2000
  77. -- rect: left=135 top=306 right=323 bottom=194
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Temperature
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   visual effect zoom open
  89.   go to card temperature
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 18 (button)
  95. -- low flags: 00
  96. -- high flags: A003
  97. -- rect: left=282 top=55 right=82 bottom=474
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Cm  to Inches  (Cubed)
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   put empty into background field "answer"
  109.   get first word of background field "toconvert"
  110.   put it into temp
  111.   if temp is "-" then
  112.     get second word of background field "toconvert"
  113.     divide it by -1
  114.     put it into temp
  115.   end if
  116.   put empty into background field "toconvert"
  117.   if temp is empty then
  118.     put temp && "0 Cu. Centimeters" into background field "toconvert"
  119.   else
  120.     put temp && " Cu. Centimeter" into background field "toconvert"
  121.   end if
  122.   multiply temp by 0.061
  123.   put temp && " Cu. Inches" into background field "answer"
  124.   put empty into temp
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 19 (button)
  130. -- low flags: 00
  131. -- high flags: A003
  132. -- rect: left=282 top=87 right=114 bottom=474
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Inches  to  Cm   (Cubed)
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   put empty into background field "answer"
  144.   get first word of background field "toconvert"
  145.   put it into temp
  146.   if temp is "-" then
  147.     get second word of background field "toconvert"
  148.     divide it by -1
  149.     put it into temp
  150.   end if
  151.   put empty into background field "toconvert"
  152.   if temp is empty then
  153.     put temp && "0 Cu. Inches" into background field "toconvert"
  154.   else
  155.     put temp && " Cu. Inches" into background field "toconvert"
  156.   end if
  157.   divide temp by 0.061
  158.   put temp && " Cu. Centimeters" into background field "answer"
  159.   put empty into temp
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 20 (button)
  165. -- low flags: 00
  166. -- high flags: A003
  167. -- rect: left=282 top=122 right=149 bottom=474
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Meters  to Feet  (Cubed)
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   put empty into background field "answer"
  179.   get first word of background field "toconvert"
  180.   put it into temp
  181.   if temp is "-" then
  182.     get second word of background field "toconvert"
  183.     divide it by -1
  184.     put it into temp
  185.   end if
  186.   put empty into background field "toconvert"
  187.   if temp is empty then
  188.     put temp && "0 Cu. Meters" into background field "toconvert"
  189.   else
  190.     put temp && " Cu. Meters" into background field "toconvert"
  191.   end if
  192.   multiply temp by 35.314
  193.   put temp && " Cu. Feet" into background field "answer"
  194.   put empty into temp
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 21 (button)
  200. -- low flags: 00
  201. -- high flags: A003
  202. -- rect: left=282 top=154 right=181 bottom=474
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: Feet  to Meters  (Cubed)
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   put empty into background field "answer"
  214.   get first word of background field "toconvert"
  215.   put it into temp
  216.   if temp is "-" then
  217.     get second word of background field "toconvert"
  218.     divide it by -1
  219.     put it into temp
  220.   end if
  221.   put empty into background field "toconvert"
  222.   if temp is empty then
  223.     put temp && "0 Cu. Feet" into background field "toconvert"
  224.   else
  225.     put temp && " Cu. Feet" into background field "toconvert"
  226.   end if
  227.   divide temp by 35.314
  228.   put temp && " Cu. Meters" into background field "answer"
  229.   put empty into temp
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 22 (button)
  235. -- low flags: 00
  236. -- high flags: A003
  237. -- rect: left=282 top=188 right=215 bottom=474
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Meters  to Yards  (Cubed)
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   put empty into background field "answer"
  249.   get first word of background field "toconvert"
  250.   put it into temp
  251.   if temp is "-" then
  252.     get second word of background field "toconvert"
  253.     divide it by -1
  254.     put it into temp
  255.   end if
  256.   put empty into background field "toconvert"
  257.   if temp is empty then
  258.     put temp && "0 Cu. Meters" into background field "toconvert"
  259.   else
  260.     put temp && " Cu. Meters" into background field "toconvert"
  261.   end if
  262.   multiply temp by 1.308
  263.   put temp && " Cu. Yards" into background field "answer"
  264.   put empty into temp
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 23 (button)
  270. -- low flags: 00
  271. -- high flags: A003
  272. -- rect: left=282 top=222 right=249 bottom=474
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: Yards  to Meters  (Cubed)
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   put empty into background field "answer"
  284.   get first word of background field "toconvert"
  285.   put it into temp
  286.   if temp is "-" then
  287.     get second word of background field "toconvert"
  288.     divide it by -1
  289.     put it into temp
  290.   end if
  291.   put empty into background field "toconvert"
  292.   if temp is empty then
  293.     put temp && "0 Cu. Yards" into background field "toconvert"
  294.   else
  295.     put temp && " Cu. Yards" into background field "toconvert"
  296.   end if
  297.   divide temp by 1.308
  298.   put temp && " Cu. Meters" into background field "answer"
  299.   put empty into temp
  300. end mouseUp
  301.  
  302.  
  303.  
  304. -- part 24 (button)
  305. -- low flags: 80
  306. -- high flags: A003
  307. -- rect: left=283 top=258 right=285 bottom=474
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 1
  311. -- font id: 0
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: Additional Notes
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   lock screen
  319.   hide me
  320.   show card field "AreaInfo"
  321.   show card button "Done"
  322. end mouseUp
  323.  
  324.  
  325.  
  326. -- part 25 (button)
  327. -- low flags: 00
  328. -- high flags: A003
  329. -- rect: left=283 top=290 right=317 bottom=474
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 1
  333. -- font id: 0
  334. -- text size: 12
  335. -- style flags: 0
  336. -- line height: 16
  337. -- part name: More Conversions
  338. ----- HyperTalk script -----
  339. on mouseUp
  340.   lock screen
  341.   get background field "toconvert"
  342.   go to card "Volume2"
  343.   put it into background field "toconvert"
  344. end mouseUp
  345.  
  346.  
  347.  
  348. -- part contents for background part 7
  349. ----- text -----
  350. Volume
  351. Conversions